Option Explicit
Sub H_Sample013()
    'ոH_Data01
    'ϥH_Sample011ϯäR
    Dim myPtbl As PivotTable
    Dim mySht1 As Worksheet
    Dim mySht2 As Worksheet
    Dim myStr  As String
    Dim myRng  As Range
    'wƪ
    Set mySht1 = Worksheets("H_Data01")
    Set mySht2 = ThisWorkbook.Worksheets(1)	'ϯäRsb
    'wܧ᪺ƽd
    Set myRng = mySht1.Range("A1").CurrentRegion.Resize(50)
    With Application.Names.Add("tmp", myRng)
        myStr = Mid(.RefersToR1C1, 2)
        .Delete
    End With
    Set myPtbl = mySht2.PivotTables(1)
    myPtbl.SourceData = myStr
    myPtbl.RefreshTable
    'Excel2002SOBz
    'ActiveWorkbook.ShowPivotTableFieldList = False
    Set mySht1 = Nothing				'
    Set mySht2 = Nothing
    Set myRng = Nothing
    Set myPtbl = Nothing
End Sub
